data("zaki")
inspect(zaki)

spademodel<-cspade(zaki, parameter = list(support=0.5))

inspect(spademodel)

spademodel1<-ruleInduction(spademodel, confidence=0.6)
inspect(spademodel1)

spademodel_df<-as(spademodel1, 'data.frame')
spademodel_df
